unit GotoLineFrm;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, Spin, XPMenu;

type
  TGotoLineForm = class(TForm)
    Bevel1: TBevel;
    GotoLabel: TLabel;
    Line: TSpinEdit;
    Bevel2: TBevel;
    XPMenu: TXPMenu;
    procedure LineKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  public
    procedure LoadTexts;
  end;

implementation

uses
 MultiLangSupport, devcfg;

{$R *.DFM}

procedure TGotoLineForm.LineKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_Return then ModalResult:= mrOK;
  if Key = vk_Escape then ModalResult:= mrCancel;
end;

procedure TGotoLineForm.LoadTexts;
begin
  if devData.XPTheme then
    XPMenu.Active := true
  else
    XPMenu.Active := false;
  Caption :=           Lang[ID_GOTO_CAPTION];
  GotoLabel.Caption := Lang[ID_GOTO_TEXT];
end;

procedure TGotoLineForm.FormCreate(Sender: TObject);
begin
  LoadTexts;
end;

end.
